home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / yield.tcl < prev   
Encoding:
Text File  |  1993-11-18  |  82 b   |  13 lines  |  [TEXT/$Tcl]
  1.  
  2.  
  3. loop idx1 0 100 1 {
  4.     loop idx2 0 100 1 {
  5.         }
  6.  
  7.     yield_mac -spin -event 12
  8.     }
  9.  
  10.  
  11.  
  12.  
  13.